home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Guides / PicsData / ARC next >
Text File  |  1998-03-10  |  609b  |  21 lines
  1. ; little script to get ARCHandler running on every Workbench version >= 2.04
  2.  
  3. Assign >NIL: ARC: EXISTS
  4. If WARN
  5.   ; try to find LhA
  6.  
  7.   Which >NIL: LhA
  8.   If WARN
  9.     SetEnv lhapath "AMINET24:Tools/LhA"
  10.   Else
  11.     SetEnv lhapath `Which LhA`
  12.     If "$lhapath" EQ "RES LhA"
  13.       SetEnv lhapath "LhA"
  14.     EndIf
  15.   EndIf
  16.  
  17.   Echo >T:ARCMountList "ARC: Handler=AMINET24:Guides/PicsData/L/arc_handler*NStartup=*"LHA='$lhapath' DISKICON='DEVS:ARCDisk_info' DRAWERICON='DEVS:ARCDrawer_info'*"*NStackSize=4096*NPriority=1*NGlobVec=-1*NMount=1*N#"
  18.   Mount >NIL: ARC: FROM T:ARCMountList
  19.   Delete >NIL: T:ARCMountList
  20. EndIf
  21.